
----------

------String-----------------

(define s1 "String")

(if (isA? s1 (string))
  (write "Passed Test")
  (write "Failed Test")
)

------Integer----------------

(define i1 1)

(if (isA? i1 (integer))
  (write "Passed Test")
  (write "Failed Test")
)

------List or Array----------

(define l1 (list 1 2 3 4 5))
(if (isA? l1 (list))
  (write "Passed Test")
  (write "Failed Test")
)

------Hash or Assoc----------

(define a1 (assoc (pair 1 2) (pair 3 4)))

(if (isA? a1 (assoc)) 
  (write "Passed Test")
  (write "Failed Test")
)

